-- title: :D
-- script: lua
function GetDistance(x1,y1,x2,y2)
return math.sqrt( (x2-x1)^2 + (y2-y1)^2 )
end
petX = 116
petY = 72
mapX = 0
mapY = 0
count = math.random(10, 100)
status = "show"
score = 0
hitTimer = 0
hunger = 100
hungerTimer = 0
heartTimer = 0
heartYOffset = 0
music(0, 0, 0, true)
function TIC()
cls(13)
hungerTimer = hungerTimer + 1
if hungerTimer >= 180 then
hungerTimer = 0
if hunger > 0 then
hunger = hunger - 1
end
end
if status ~= "hit" then
if hunger < 30 then
status = "hide"
else
status = "show"
end
end
mouseX, mouseY, button = mouse()
dist = GetDistance(mouseX, mouseY, petX, petY)
if (button and dist <= 12 and status ~= "hit") or btnp(4) then
status = "hit"
score = score + 1
hunger = math.min(100, hunger + 15)
hitTimer = 45
heartTimer = 30
heartYOffset = 0
sfx(3, "C-4", 10)
end
if hitTimer > 0 then
hitTimer = hitTimer - 1
if hitTimer == 0 then
status = "show"
end
end
map(mapX, mapY)
if status == "hide" then
spr(4, petX-4, petY-4)
spr(5, petX+4, petY-4)
spr(20, petX-4, petY+4)
spr(21, petX+4, petY+4)
elseif status == "show" then
spr(0, petX-4, petY-4)
spr(1, petX+4, petY-4)
spr(16, petX-4, petY+4)
spr(17, petX+4, petY+4)
elseif status == "hit" then
spr(2, petX-4, petY-4)
spr(3, petX+4, petY-4)
spr(18, petX-4, petY+4)
spr(19, petX+4, petY+4)
end
if heartTimer > 0 then
spr(64, petX - 4, petY - 14 - heartYOffset, 0)
heartYOffset = heartYOffset + 0.5
heartTimer = heartTimer - 1
end
print("Times Fed: " .. score, 150, 5, 2)
print("Hunger: " .. hunger .. "/100", 10, 5, 2, hunger < 30 and 6 or 11)
if hitTimer > 0 then
print("NOM!", 110, 90, 2)
end
end
--
-- 000:0000000000000000000000000002000000000000200000002200000002000000
-- 001:0000000000000000000000000002000000000020000002200000020000002200
-- 002:0000000000000000022000000220000002200000022202000202000022022000
-- 003:0000000000000000000000000000000000000002000000220002002200000202
-- 016:0022000000022200000000220000000000000000000000000000000000000000
-- 017:0002200000220000222000000000000000000000000000000000000000000000
-- 018:2000222220000000200000002000000022000000020000000222002200022200
-- 019:2222202000000020000002000000220000022000022000002000000000000000
-- 020:0002000000000000000000000000000000000000000000000000000000000000
-- 021:0000200000000000000000000000000000000000000000000000000000000000
-- 033:0000000000000000000000000022000000022022000000020000000200000002
-- 034:0000002200000002000000000000000000000000200000002200000200000020
-- 035:0000000020020000002200000022000002002000220020000000020000000200
-- 048:0000000000200000002200000002000000000000000002200000000200000000
-- 049:0000000200000002000000020000000200000022002222002220000000000000
-- 050:0222220000220000000200000002220000000022000000000000000000000000
-- 051:0000020000002000000020000022000022000000000000000000000000000000
-- 064:0000000000000000020002002220222022222220022222000022200000020000
-- 112:0022222202222222222222222222222222222222222222222222222c222222c2
-- 113:2222220022222220222c222222c2c2222c2c2c22c222c222222c222222c22222
-- 128:22222c222222c222222c222c222cc2c2222ccc22222222220222222200222222
-- 129:2c222222c2222222222222222222222222222222222222222222222022222200
-- 176:2222222222222222222222222222222222222222222222222222222222222222
-- 177:2222222222222222222222222222222222222222222222222222222222222222
-- 192:2222222222222222222222222222222222222222222222222222222222222222
-- 193:2222222222222222222222222222222222222222222222222222222222222222
--
--
--
-- 000:00000000ffffffff00000000ffffffff
-- 001:0123456789abcdeffedcba9876543210
-- 002:0123456789abcdef0123456789abcdef
-- 005:0000000000004000009000b00000d000
-- 009:0122445577899abbcb86421124543200
--
--
-- 000:3a903a0f5a007ad4ca7b9a2e6a7daa9f8a4a6a7e8a759a4b8a516a6e3a906a0e2a821a952a554a919a048aa57a7c6a8d4afc3a034a0b7a0aaa00da00700000000000
-- 001:d221a231824172527242a262828f420022c122625281b2a3c20382e072bf8271b202e2028203f223d253a253b271f2a2e262e230b200023002100250300000000000
-- 002:c144b140a140914081407130713071307100010001000108010001000100010d01080100010001000100010901000100010001000100010001000100273000000000
-- 003:040004000400040004000400040004000400040004000400040004000400040004000400040004000400040004000400040004000400040004000400207000000000
--
--
-- 000:c00002100000100000100000900002100000000000000000000000000000000000000000c00002000000100000000000000000900002000000100000000000000000b00002100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 001:504406604406704406604406d04406104400004400004400004400904406104400c04406104400a03406103400a03406100000000000000000000000000000a00006800006000000600006000000800006000000000000a00006000000c00006100000d00006d00006d00006100000000000000000000000c00006000000000000a00006100000000000000400000000800006000000100000000000900006000000100000a00006100000000000000000000000000000000000000000000000
--
--
-- 000:100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000040
-- 001:200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
--
--
-- 000:1a1c2c5d275db13e53ef7d57ffcdb2a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
--